#! /usr/bin/env perl
# author: maxiao
# date:2023-03-08 9:26
# description: 通过钻石操作符，读取多个文件中的数据

use v5.20;
use utf8;
use strict;
use warnings;

sub read_files {
    while (<>) {
        print "当前文件为：$ARGV,文件内容：$_";
    }
}

@ARGV = qw( shift.pl pop.pl haha );
read_files();
